“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


| 555S555555555555555555555S5555555 


L 12 


~ 
id 
oO 
<= 
a 
e 
ao 
z 
— 
o 
* 
a 
= 
co 
© 
w 
a 
— 
o 
* 
cs 


me me me 
me me me 
mer fh] 
ne me 
me me 
ae me 
me me 
men mee 
vw vu 
wv vv 
vu YW 
ww hd 
vw wu 
vVeuv VY 
Vu Vv 
VE VV 


YVUVVOUYYYYUYUY 
nd 


oooooooooo 


T PPPPPPPP 
T PPPPPPPP 
PPPPPPPP 
PPPPPPPP 


os 


—“—— — 
— —— 
8 8 Od Ok Od Od Og Od Od Og Og OG OG 
de ed Od Od Od Od ad Od ad Ong oy Oe 
_—— — 
— eo 


a Oe os 
[eed — 
ed OE Oe Oa Oe ee ty td at 
8 OTE OO 
“oe eo em 
“oe ot oe 


nn MMMM 
nn MMMnm 
nw nw mn 
mn own nw 
“mn nw “nw 
nn nw nw 
nn nn nw 
mn nn “mw 
MMMM “nn 
MMMM nn 
Lem = 
oe oaiemd 


me Ce leed 
Conkend a 
a4 
sd 
aH 
44 
aa 
es 
a4 
a4 
ee 
ee ee ee ee 


SS SE = £.. Ss. Sa See 


COOOCOOCOCOCOCOOOSOooooooo 


if Se0- 1984 Mieoitd  DTEKSUSmasteR:LeRF-SRCJINITPROCS.FORST® 
Subroutine ERFPRCSINI ( Array_addr, Array_size ) 


Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
thee: oe ay CORPORATION, | MAYNARD. MASSACHUSETTS. 
I 


22 


2 
oO 
Mme <a 


eee WITH THE TERMS OF SUCH LICENSE AND WITH THE 


GHT 
heer. IS F uy sneo eee A_LICENSE AND MAY BE USED AND corite 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


a be be be 3 ds 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onmeokatite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Functional description: 
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This is the initialization module for the loadable inege ERFPROC3.EXE. 
After ERFPROCS has been loaded this routine is called to return 

the information from it tables. These tables specifiy which error 

log packets this loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The ENTRY TYPE value is the packet type identifier for the packets that 
this loadable image will process. 


The DEVICE CLASS value specifies the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is wee to Governing if the module in this image 
is the one to use. This is accenps lished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER vecTeR | FFSET is the index to the transfer vector to 
be used for a spe hy ¢ device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 


INITDISK 0 ' a routine similar to this one 
MASSDISK 1 ! a device specific routine 
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AUTHOR: Elliott A. Drayton CREATION DATE: 27-Jan-1983 
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ep- RF SRCJINITPROC3.FORSY 
RKDISK 
eth 


Modified by: 


v03-002 SAROZO6 Sharon A. Reynolds 27-F eb- 1984 
$r0001 Sharon Reynolds 17-Mar-1983 


Change tables to support 58] ocerts soft and hard ECC's, 
and volume mounts and dismounts 
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Added bus errors and asynchronous write entry support (SBI). 
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' 
DEFINE ENTRY TYPES 
i 


Parameter EMBSK_SA = 5 ! SBI alert 
Parameter at 9 I = ' Soft ECC error 
Parameter EMBSK_HE = ' Hard ECC error 
Parameter EMBSK_VM = 64 ! Volume mount entries %x40 
Parameter EMBSK_VD = 65 ! Volume dismount entries %x41 
Parameter EMBSK_BE = 4 ' Bus errors 
Parameter EMBSK_AW = 7 ! Async write errors 
Parameter Zero = 0 
Parameter V1 = 1 ! Dewice module version number 
Parameter Maxtypes = 7 
1088 Integer*4 Array_addr, Array_size 
sia Integer*2 Proc3_codes ( 4 * Maxtypes ) 
0036 Dat Proc3_codes / 
009 1 EMBSK SA, zero, V1, 1, ' SBI alert entries 
0094 § EMBSK-SE, zero, V1, 1, ' Soft ECC error 
0095 EMBSK_HE, zero, V1, 1, ' 
0096 4 EMBSK_VM, zero, V1, $° ' Volume mount entries 
0097 5 EMBSK_VD, zero, V1 ' Volume dismount entries 
0098 § EMBSK_ ath zero, vi ' Bus error entries 
0099 EMBSK _. zero, V1, Asynchronous write error 


entries 


Array_addr = ZLOC (proc3_codes(1)) 
Array_size = Maxtypes 
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Return 
End 
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PROGRAM SECTIONS 
Name Bytes Attributes 


SCODE 19 PIC CON REL LCL 
SLOCAL 56 =PIC CON REL LCL NOSHR 


X-11 FORTRAN {Pees page 4 
SKSVMSMASTER: CERF .SRCJINITPROC3.FOR; 


SHR EXE RD NOWRT LONG 
SHR NOEXE RD WRT LONG 


Total Space Allocated 75 


Address Type Name 
0-00000000 ERFPRC3INI 


VARIABLES 
Address Type Name Address Type Name 
AP-000000048 I1*4 ARRAY_ADDR AP-00000008@ I*4 ARRAY_SIZE 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*2 PROC3_CODES 56 (28) 


COMMAND QUALIFIERS 
FORTRAN /LIS=L1S$:INITPROC3/0BJ=0BJ$: INITPROC3 MSRC$:INITPROC3 
/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL§ TRACE EBACK) 
5 DE ,MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


| 
ENTRY POINTS 
COMPILATION STATISTICS 


Run Time: 16 seconds 
Elapsed. Time: seconds 
Page Faults: 

Dynamic Memory: 155 pages 
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